home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir42 / ja94ex.zip / TALK.RMD < prev    next >
Text File  |  1994-07-19  |  3KB  |  138 lines
  1. *(TALK.RMD)
  2. CONNECT talk
  3. SET VAR vkey TEXT, vclscount INT, vresume INT, +
  4.   vlastcls INT
  5. SET MESSAGE OFF
  6. IF vlastcls IS NULL THEN
  7.    SET VAR vlastcls = 0
  8. ENDIF
  9.  
  10. DECLARE c1 SCROLL CURSOR FOR SELECT * FROM actions +
  11.  WHERE Frame >= .vlastcls ORDER BY Frame
  12.  
  13. OPEN c1
  14. FETCH NEXT FROM c1 INTO +
  15.  vFrame i1, vAction i2, vWords i3, vULR i4, +
  16.  vULC i5, vLRR i6, vLRC i7, vFColor i8, vBColor i9
  17. WHILE sqlcode = 0 THEN
  18.  
  19.   IF vresume = 0 OR vresume IS NULL THEN
  20.  
  21.     SWITCH (.vAction)
  22.  
  23.     CASE CLS
  24.       CLS
  25.  
  26.       SET VAR vlastcls = .vFrame
  27.  
  28.       BREAK
  29.  
  30.     CASE BOX
  31.  
  32.       SET VAR bulr = (.vULR + 1)
  33.       SET VAR bulc = (.vULC + 1)
  34.       SET VAR blrr = (.vLRR + 1)
  35.       SET VAR blrc = (.vLRC + 1)
  36.       CLS FROM .bulr .bulc TO .blrr .blrc black
  37.  
  38.       CLS FROM .vULR .vULC TO .vLRR .vLRC .vBColor
  39.  
  40.       BREAK
  41.  
  42.     CASE WORDS
  43.  
  44.       SET VAR vwords TEXT = (.vwords)
  45.       WRITE .vwords = .vLRR AT .vULR .vULC +
  46.         .vFColor ON .vBColor
  47.  
  48.       SET VAR vkey = (GETKEY(0))
  49.       SWITCH (.vkey)
  50.  
  51.       CASE [Esc]
  52.         SET VAR vlastcls = 0
  53.         CLS
  54.         QUIT
  55.  
  56.       CASE [Up]
  57.       CASE [PgUp]
  58.         SET VAR vclscount = 0
  59.         WHILE sqlcode = 0 THEN
  60.           FETCH PRIOR FROM c1 INTO +
  61.            vFrame i1, vAction i2, vWords i3,+
  62.            vULR i4, vULC i5, vLRR i6, vLRC i7, +
  63.            vFColor i8, vBColor i9
  64.           IF vclscount >= 2 THEN
  65.             BREAK
  66.           ENDIF
  67.           IF vAction = 'CLS' THEN
  68.             SET VAR vclscount = (.vclscount + 1)
  69.           ENDIF
  70.         ENDWHILE
  71.         BREAK
  72.  
  73.       CASE [PgDn]
  74.         SET VAR vclscount = 0
  75.         WHILE sqlcode = 0 THEN
  76.           FETCH NEXT FROM c1 INTO +
  77.            vFrame i1, vAction i2, vWords i3,+
  78.            vULR i4, vULC i5, vLRR i6, vLRC i7, +
  79.            vFColor i8, vBColor i9
  80.           IF vAction = 'CLS' THEN
  81.             FETCH PRIOR FROM c1 INTO +
  82.              vFrame i1, vAction i2, vWords i3,+
  83.              vULR i4, vULC i5, vLRR i6, vLRC i7, +
  84.              vFColor i8, vBColor i9
  85.             BREAK
  86.           ENDIF
  87.         ENDWHILE
  88.         BREAK
  89.  
  90.       CASE [Alt][F1]
  91.           SET KEYMAP [Alt][F2] = 'run talk.rmd[enter]'
  92.           SNAP resume.scn FROM 1,1 TO 25,80
  93.           SET VAR vresume = .vFrame
  94.           QUIT
  95.         DEFAULT
  96.         BREAK
  97.  
  98.       ENDSW
  99.       BREAK
  100.  
  101.     CASE RUN
  102.  
  103.       IF vkey <> '[F2]' THEN
  104.  
  105.         SNAP resume.scn FROM 1,1 TO 25,80
  106.         SET VAR vresume = .vFrame
  107.         QUIT TO .vWords
  108.  
  109.       ENDIF
  110.       BREAK
  111.  
  112.     ENDSW
  113.  
  114.   ELSE
  115.  
  116.     IF vFrame > .vresume THEN
  117.       SET VAR vresume = 0
  118.       DISPLAY resume.scn AT 1,1
  119.       ERASE resume.scn
  120.     ENDIF
  121.  
  122.   ENDIF
  123.  
  124.   FETCH NEXT FROM c1 INTO +
  125.    vFrame i1, vAction i2, vWords i3,+
  126.    vULR i4, vULC i5, vLRR i6, vLRC i7, +
  127.    vFColor i8, vBColor i9
  128.  
  129. ENDWHILE
  130. CLOSE c1
  131. DROP CURSOR c1
  132. SET VAR vlastcls = 0
  133. CLS
  134. SET MESSAGE ON
  135. RETURN
  136.  
  137.  
  138.